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I.  VHDL  Source  Code 


—  std.vlul  — 


This  file  contains  VHDL  descriptions  for  the  basic 

—  components  identified  by  the  base.cmos  GES  system. 

—  Descriptions  for  the  transistors  are  also  included. 

—  The  body  of  most  of  the  code  must  be  filled  in  by  the 

—  user. 

entity  INV  is 

generic (constant  tPLH:TIME:=0  ns; 

constant  tPHL:TIME:=0  ns); 
port  (signal  A: in  bit; 

signal  B:out  bit); 

end; 

architecture  inv  of  inv  is 
begin 

— your  code  goes  here. 

B  <=  not  A;  —  or  use  this, 
end  inv; 

entity  IHVZ  is 

generic(constant  tPLH:TIME:=0  ns; 

constant  tPHL:TIME:=0  ns); 
port  (signal  P:in  bit; 
signal  N:in  bit; 
signal  A: in  bit; 
signal  B:out  bit); 

end; 

architecture  invZ  of  invZ  is 
begin 

— your  code  goes  here, 
end  invZ; 


entity  HAMD_GATE  is 

generic(constant  tPLH:TIME:=0  ns; 

constant  tPHL:TIME:=0  ns); 
port  (signal  A: in  bit; 
signal  B: in  bit; 
signal  C:out  bit); 

end; 

architecture  nand.gate  of  nand.gate  is 
begin 

— your  code  goes  here. 

C  <=  A  nand  B;  —  or  use  this, 
end  nand.gate; 


entity  MAMD3_GATE  is 
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generic (constant  tPLH : TIME : =0  ns; 

constant  tPHL:TIME:=0  ns); 
port  (signal  A: in  bit; 
signal  B:in  bit; 
signal  C:in  bit; 
signal  D:out  bit); 

end; 

architecture  nand3_gate  of  nand3_gate  is 
begin 

— your  code  goes  here. 

D  <=  not(  A  and  B  and  C  );  —  or  use  this, 
end  nand3_gate; 


entity  XOR.GATE  is 

generic(constant  tPLH:TIME:=0  ns; 

constant  tPHL:TIME:=0  ns); 
port  (signal  A: in  bit; 
signal  B:in  bit; 
signal  C:out  bit); 

end; 

architecture  xor_gate  of  xor.gate  is 
begin 

— your  code  goes  here. 

C  <=  A  xor  B;  —  or  use  this, 
end  xor_gate; 


entity  X0R_GATE2  is 

generic (constant  tPLH:TIME:=0  ns; 

constant  tPHL:TIHE:=0  ns); 
port  (signal  A: in  bit; 

signal  Anot:out  bit; 
signal  B:in  bit; 
signal  Bnot:out  bit; 
signal  C:out  bit); 

end; 

architecture  xor_gate2  of  xor_gate2  is 
begin 

— your  code  goes  here. 

C  <=  A  xor  B;  —  or  use  this. 

Anot  <=  not  A; 

Bnot  <=  not  B; 
end  xor_gate2; 


entity  I0R.GATE  is 

generic(constant  tPLH:TIME:=0  ns; 

constant  tPHL:TIME:=0  ns); 
port  (signal  A: in  bit; 
signal  B:in  bit; 
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signal  C:out  bit); 

and; 

architecture  nor.gate  o f  nor.gate  is 
begin 

— your  code  goes  here. 

C  <=  A  nor  B;  —  or  use  this, 
end  nor .gate; 


entity  ptrans  is 


generic  (constant  gate.length:  integer 
constant  gate.width:  integer  :=  0) 
port  (  Gate  :  in  bit; 

Drain  :  inout  bit; 

Source  :  inout  bit); 
end  ptrans; 

architecture  ptrans  of  ptrans  is 
begin 

— your  code  goes  here, 
end  ptrans; 


entity  ntrans  is 

generic  (constant  gate.length:  integer 
constant  gate.width:  integer  :=  0) 
port  (  Gate  :  in  bit; 

Drain  :  inout  bit; 

Source  :  inout  bit); 
end  ntrans; 

architecture  ntrans  of  ntrans  is 
begin 

— your  code  goes  here, 
end  ntrans; 


entity  tgate  is 

generic  (  constant  tPLH:  TIME  :=  0  ns; 

constant  tPHL:  TIME  :=  0  ns); 
port  (  pi  :  in  bit; 
p2  :  in  bit; 
g  :  inout  bit; 
d  :  inout  bit); 
end  tgate; 

architecture  tgate  of  tgate  is 
begin 

— your  code  goes  here, 
end  tgate; 


—  anti-gate. vlicl  — 
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entity  and.gate  is 
port  ( 

X,  Y  :  in  bit; 
Output  :  out  bit 
); 


and  and.gate; 

architecture  and.gate  of  and.gate  is 

component  nand.gate 

generic(constant  tPLH:TIHE:=0  ns; 

constant  tPHL:TIME:=0  ns); 
port  (signal  A: in  bit; 
signal  B:in  bit; 
signal  C:out  bit); 
end  component; 

lor  all  :  nand.gate  use  entity  work. nand.gate (  nand.gate  ); 
component  inv 

generic (constant  tPLH:TIME:=0  ns; 

constant  tPHL:TIME:=0  ns); 
port  (signal  A: in  bit; 

signal  B:out  bit); 
end  component; 

lor  all  :  inv  use  entity  work. inv (  inv  ); 
signal  Interm  :  bit; 
begin 

Cl:  HAND.GATE  port  map  (X,  Y,  Interm); 

C2:  IMV  port  map  ( Interm, Out put ) ; 
end  and.gate; 


—  or_gate.vhd  — 


entity  or.gate  is 
port  ( 

X,  Y  :  in  bit; 
Output  :  out  bit 
); 


end  or .gate; 

architecture  or.gate  ol  or.gate  is 

component  nor.gate 

generic (constant  tPLH:TIME:=0  ns; 
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constant  tPHL:TIME:=0  ns); 
port  (signal  A: in  bit; 
signal  B:in  bit; 
signal  C:out  bit); 
end  component; 

f or  all  :  nor.gate  use  entity  work.nor_gate(  nor_gate  ); 
component  inv 

generic (constant  tPLH:TIME:=0  ns; 

constant  tPHL:TIME:=0  ns); 
port  (signal  A: in  bit; 

signal  8: out  bit); 
end  component; 

lor  all  :  inv  use  entity  work. inv (  inv  ); 
signal  Interm  :  bit; 
begin 

Cl:  NOR_GATE  port  map  (X,  Y,  Interm); 

C2:  INV  port  map  ( Interm, Output ) ; 
end  or_gate; 


—  dffj-eset  Jbeil,  vhd  — 


entity  dll_reset  is 
port (clock  :  in  bit; 

clock_bar  :  in  bit ; 

D  :  in  bit; 
reset  :  in  bit; 

Q_bar  :  out  bit); 

—  assert  ((not  clock  =  clock_bar)  or  (not  clock’ stable(l  ns)))  report 
"bad  clock"  severity  failure; 
end  dff .reset; 

architecture  beh  of  dff.reset  is 
begin 

process (clock, D, reset) 
begin 

if  reset  =  '1'  then 
Q_bar  <=  ’ 1 ’ ; 
elsif  clock  =  '1'  then 
Q_bar  <=  not  D; 
end  if ; 
end  process; 
end  beh; 


—  -  prf)t_stag»;l.vlid  --- 
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entity  prpt.stagel  is 

port (seed  :  in  bit; 

load.seed  :  in  bit; 
reset  :  in  bit; 

input  :  in  bit; 

clockl  :  in  bit; 
clockl_bar  :  in  bit; 
clock2  :  in  bit; 
clock2_bar  :  in  bit; 
test.enable:  in  bit; 
output  :  out  bit)  ; 

begin 

assert  (((not  clockl  =  clockl_bar)  or  (not  clockl 'stable(2  ns))) 
or  (now  =  0  ns))  report 
"bad  clockl"  severity  failure; 

—  assert  ((not  clock2  =  clock2_bar)  or  (not  clock2'stable(2  ns)))  report 
"bad  clock2"  severity  failure; 
end  prpt_stagel; 

architecture  structural  of  prpt_stagel  is 

component  dff_reset 
port (clock  :  in  bit; 

clock_bar  :  in  bit; 

D  :  in  bit; 
reset  :  in  bit; 

Q_bar  :  out  bit); 
end  component; 

for  all  :  dff_reset  use  entity  work.dff _reset(beh) ; 

component  and_gate 

port  (signal  X,Y:in  bit; 

signal  Output :out  bit); 
end  component; 

for  all  :  and_gate  use  entity  work.and_gate(  and_gate  ); 

component  Xor_Gate 
generic (constant  tPLH:TIME:=0  ns; 

constant  tPHL:TIME:=0  ns); 
port  (signal  A: in  bit; 
signal  B: in  bit; 
signal  C:out  bit); 
end  component; 

for  all  :  Xor_Gate  use  entity  work.Xor_Gate(  xor_gate  ); 

signal  interml,intenn2,interm3,interm4  :  bit; 
signal  zero  :  bit  :  =  ’O’; 
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begin 


dff_resetl  :  dff_reset  port  map(clockl,clockl_bar,interm2, reset, interm3); 
dff_reset2  :  dff_reset  port  map(clock2, clock2_bar,interm3, zero, output) ; 
and_gatel  :  and_gate  port  map(load_seed,seed,interml) ; 
and_gate2  :  and_gate  port  map( input, test_enable, interm4) ; 
xor_gatel  :  xor_gate  port  map(interm4,interml,interm2); 

end  structural; 

—  prpt_stage.vhd  — 

entity  prpt_stage  is 

port(seed  :  in  bit; 

load_seed  :  in  bit; 
polynomial  :  in  bit; 
feed_in  :  in  bit; 
reset  :  in  bit; 

input  :  in  bit ; 

clockl  :  in  bit; 
clockl_bar  :  in  bit; 
clock2  :  in  bit; 
clock2_bar  :  in  bit; 
test_enable:  in  bit; 
feed_out  :  out  bit; 

output  :  out  bit); 

begin 

assert  (((not  clockl  =  clockl_bar)  or  (not  clockl ’ stable(2  ns))) 
or  (now  =  0  ns))  report 
"bad  clockl"  severity  failure; 

—  assert  ((not  clock2  =  clock2_bar)  or  (not  clock2'stable(2  ns)))  report 

"bad  clock2"  severity  failure; 

end  prpt_stage; 

architecture  structural  of  prpt_stage  is 

component  prpt_stagel 

port(seed  :  in  bit; 

load_seed  :  in  bit; 
reset  :  in  bit; 

input  :  in  bit ; 

clockl  :  in  bit; 
clockl.bar  :  in  bit; 
clock2  :  in  bit; 
clock2_bar  :  in  bit; 
test_enable:  in  bit; 
output  :  out  bit); 

end  component ; 

for  all  :  prpt_stagel  use  entity  work.prpt_stagel(structural) ; 
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component  and.gate 
port  (signal  X,Y:in  bit; 

signal  Output: out  bit); 
end  component; 

lor  all  :  and_gate  use  entity  work.and_gate(  and_gate  ); 

component  Xor_Gate 

generic (constant  tPLH:TIME:=0  ns; 

constant  tPHL:TIME:=0  ns); 
port  (signal  A: in  bit; 
signal  B:in  bit; 
signal  C:out  bit); 
end  component; 

lor  all  :  Xor.Gate  use  entity  work. Xor.Gate (  xor_gate  ); 
signal  interm  :  bit; 
begin 

prpt_stagel_l  :  prpt_stagel 

port  map(seed , load_seed , reset , input , clockl , clockl.bar , clock2 , 
clock2_bar ,test_enable, output) ; 
and_gatel  :  and_gate  port  map(polynomial, input, interm); 
xor.gatel  :  xor_gate  port  map ( 1 e ed_ in , int  erm , 1 e ed_ out ) ; 

end  structural; 


—  prpt.vlid  — 

entity  prpt  is 

port (seed  : 

in 

bit_vector(31  downto  0); 

load.seed  : 

in 

bit ; 

polynomial  : 

in 

bit_vector(31  downto  0); 

reset  : 

in 

bit ; 

clockl  : 

in 

bit; 

clockl.bar  : 

in 

bit; 

clock2  : 

in 

bit; 

clock2_bar  : 

in 

bit; 

test.enable: 

in 

bit ; 

pattern  : 

out  bit_vector(31  downto  0)) 

begin 

assert  (((not  clockl  =  clockl.bar)  or  (not  clockl 'stable(2  ns))) 
or  (now  =  0  ns))  report 
"bad  clockl  result"  severity  lailure; 

—  assert  ((not  clock2  =  clock2_bar)  or  (not  clock2'stable(2  ns)))  report 
"bad  clock2  result"  severity  lailure; 
end  prpt; 
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architecture  structural  o f  prpt  is 

component  prpt_stage 

port (seed  :  in  bit; 

load_seed  :  in  bit; 
polynomial  :  in  bit; 
feed_in  :  in  bit; 
reset  :  in  bit; 

input  :  in  bit; 

clockl  :  in  bit; 
clockl_bar  :  in  bit; 
clock2  :  in  bit; 
clock2_bar  :  in  bit; 
test_enable:  in  bit; 
feed_out  :  out  bit; 

output  :  out  bit); 

end  component; 

tor  all  :  prpt_stage  use  entity  work . prpt_stage( structural) ; 

component  prpt_stagel 

port (seed  :  in  bit; 

load_seed  :  in  bit; 
reset  :  in  bit; 

input  :  in  bit; 

clockl  :  in  bit; 
clockl.bar  :  in  bit; 
clock2  :  in  bit; 
clock2_bar  ;  in  bit; 
test.enable:  in  bit; 
output  :  out  bit); 

end  component; 

for  all  :  prpt_stagel  use  entity  work. prpt_stagel (structural) ; 

component  and_gate 

port  (signal  X,Y:in  bit; 

signal  Output: out  bit); 

end  component; 

for  all  :  and_gate  use  entity  work . and_gate(  and_gate  ); 

component  inv 

generic(constant  tPLH:TIME:=0  ns; 

constant  tPHL:TIME:=0  ns); 
port  (signal  A: in  bit; 

signal  B:out  bit) ; 

end  component ; 

for  all  :  inv  use  entity  work.inv(  inv  ); 
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signal  feedback  :  bit_vector(31  downto  0); 
signal  i_o,temp  :  bit_vector(31  downto  0); 

begin 

prpt_stagel_l  :  prpt.stagel 

port  map(seed(31) , load.seed, reset ,feedback(31) .clockl ,clockl_bar , 
clock2 , clock2_bar , test .enable, i_o(31) ) ; 


prpt_stage01  :  prpt_stage 

port  map(seed(30) ,load_seed,polynomial(31) ,f eedback(30) .reset, i_o(31) , 

clockl , clockl_bar , clock2 , clock2_bar , test_enable,f eedback(31) , i_o(30) ) ; 
prpt_stage2  :  prpt_stage 

port  map(seed(29) ,load_seed,polynomial(30) ,f eedback(29) .reset, i_o(30) , 

clockl ,clockl_bar , clock2,clock2_bar .test .enable, feedback (30) ,  i_o(29)) ; 
prpt_stage3  :  prpt_stage 

port  map(seed(28) ,load_seed,polynomial(29) ,f eedback(28) , reset, i_o(29) , 

clockl , clockl_bar , clock2 , clock2_bar , test_enable,f eedback(29) , i_o(28) ) ; 
prpt_stage4  :  prpt .stage 

port  map(seed(27) ,load_seed,polynomial(28) ,f eedback(27) , reset, i_o(28) , 

clockl , clockl_bar , clock2 , clock2_bar , test_enable,f eedback(28) , i_o(27) ) ; 
prpt_stage5  :  prpt_stage 

port  map(seed(26) ,load_seed, polynomial ( 27) , f eedback(26) , reset, i_o(27), 

clockl , clockl_bar , clock2 , clock2_bar , t est_enable , f eedback(27) , i_o(26) ) ; 
prpt_stage6  :  prpt_stage 

port  map(seed(25) ,load_seed,polynomial(26) ,f eedback(2B) .reset, i_o(26) , 

clockl , clockl_bar , clock2 , clock2_bar , t est.enable , f eedback(26) , i_o(26) ) ; 
prpt_stage7  :  prpt.stage 

port  map(seed(24) ,load_seed, polynomial (25) , feedback (24) .reset, i_o(25) , 

clockl ,clockl_bar,clock2,clock2_bar , test_enable,f eedback(25) ,i_o(24)) ; 
prpt_stage8  :  prpt_stage 

port  map (seed (23) ,load_seed,polynomial(24) , feedback(23) .reset ,i_o(24) , 

clockl , clockl_bar , clock2 , clock2_bar , test_enable,f eedback(24) , i_o(23) ) ; 
prpt_stage9  :  prpt.stage 

port  map(seed(22) , load.seed, polynomial ( 23) ,feedback(22) .reset ,i_o(23) , 

clockl , clockl_bar , clock2 , clock2_bar , test_enable,f eedback(23) , i_o(22) ) ; 
prpt_stagelO  :  prpt_stage 

port  map(seed(21) ,load_seed,polynomial(22) , f eedback(21) , reset, i_o(22) , 

clockl , clockl _bar ,clock2 ,clock2_bar,test_enable, feedback (22) , i_o(21)) ; 
prpt.stagell  :  prpt_stage 

port  map(seed(20) ,load_seed,polynomial(21) ,f eedback(20) .reset ,i_o(21) , 

clockl , clockl _bar ,clock2 ,clock2_bar ,test_enable,feedback(21) , i_o(20) ) ; 
prpt_stagel2  :  prpt_stage 

port  map(seed(19) ,load_seed, polynomial (20) ,f eedback(lB) .reset, i_o(20) , 

clockl ,clockl_bar ,clock2 ,clock2_bar,test_enable,feedback(20) , i_o(19)) ; 
prpt_stagel3  :  prpt.stage 

port  map(seed(18) ,load_seed,polynomial(19) ,f eedback(18) .reset, i_o(19) , 

clockl ,clockl_bar,clock2,clock2_bar,test_enable,feedback(19) ,i_o( 18)) ; 
prpt_stagel4  :  prpt.stage 

port  map(seed(17) ,load_seed,polynomial(18) ,f eedback(17) , reset, i_o( 18) , 

clockl , clockl.bar , clock2 , clock2_bar , test.enable , f eedback ( 18) , i_o( 17) ) ; 
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prpt.stagelS  :  prpt.stage 

port  map(seed(16) ,load_seed,polynomial(17) ,f eedback(16) .reset , i_o(17) , 

clockl .clockl.bar ,clock2, clock2_bar , test.enable, feedback(17) ,i_o(16)) ; 
prpt_stagel6  :  prpt_stage 

port  map(seed(15) .load.seed, polynomial ( 16) ,f eedback(lS) , reset, i_o(16) , 

clockl ,clockl_bar , clock2 ,clock2_bar , test.enable, leedback( 16) , i_o(15)) ; 
prpt_stagel7  :  prpt_stage 

port  map(seed(l4) ,load_seed,polynomial(15) ,1 eedback(14) .reset, i_o(lS) , 

clockl , clockl.bar , clock2 , clock2_bar , test_enable ,f eedback(lS) , i_o( 14) ) ; 
prpt_stagel8  :  prpt_stage 

port  map(seed(l3) ,load_seed,polynomial(14) ,f eedback(13) .reset, i_o(14) , 

clockl , clockl_bar , clock2 , clock2_bar , t est_enable , t eedback( 14) , i.o ( 13) ) ; 
prpt_stagel9  :  prpt_stage 

port  map(seed(12) ,load_seed,polynomial(13) ,feedback(12) .reset, i_o( 13) , 

clockl ,clockl_bar ,clock2,clock2_bar ,t est .enable, teedback( 13) ,i_o(12)) ; 
prpt_stage20  :  prpt_stage 

port  map(seed(ll) ,load_seed,polynomial(12) ,f eedback(ll) .reset , i_o(12) , 

clockl , clockl_bar , clock2 , clock2_bar , test.enable, f eedback(12) , i_o( 11) ) ; 
prpt_stage21  :  prpt_stage 

port  map(seed( 10) ,load_seed,polynomial(ll) ,f eedback(lO) .reset, i_o(ll) , 

clockl .clockl.bar ,clock2, clock2_bar, test.enable, feedback(ll) , i_o(10)) ; 
prpt_stage22  :  prpt_stage 

port  map(seed(9) ,load_seed,polynomial(10) ,feedback(9) , reset, i_o(10) , 

clockl , clockl.bar , clock2, clock2_bar, test.enable, feedback( 10) , i_o(9)) ; 
prpt_stage23  :  prpt_stage 

port  map(seed(8) ,load_seed,polynomial(9) ,feedback(8), reset, i_o(9) , 

clockl , clockl_bar , clock2 , clock2_bar , test .enable , leedback(9) , i_o(8) ) ; 
prpt_stage24  :  prpt.stage 

port  map(seed(7) .load.seed, polynomial^) ,feedback(7) .reset , i_o(8) , 

clockl .clockl.bar ,clock2 ,clock2.bar, test.enable, feedback(8) ,i_o(7)) ; 
prpt_stage25  :  prpt.stage 

port  map(seed(6) ,load_seed,polynomial(7) ,feedback(6), reset, i_o(7) , 

clockl , clockl.bar ,clock2,clock2_bar ,test_enable,f eedback(7) ,i_o(6)) ; 
prpt_stage26  :  prpt.stage 

port  map(seed(5) ,load_seed, polynomial (6) ,i eedback(S), reset, i_o(6) , 

clockl .clockl _bar ,clock2, clock2_bar ,test_enable,f eedback(6) ,i_o(5)) ; 
prpt_stage27  :  prpt.stage 

port  map(seed(4) ,load_seed,polynomial(5) ,feedback(4), reset, i_o(S) , 

clockl ,clockl_bar , clock2,clock2_bar ,test_enable,leedback(5) , i_o(4)) ; 
prpt_stage28  :  prpt.stage 

port  map(seed(3) , load. seed, polynomial (4) , feedback(3) .reset , i_o(4) , 

clockl , clockl.bar , clock2 , clock2_bar , test.enable, feedback (4) , i_o(3) ) ; 
prpt_stage29  :  prpt.stage 

port  map(seed(2) ,load_seed,polynomial(3) ,feedback(2) , reset, i_o(3) , 

clockl .clockl.bar ,clock2 ,clock2_bar , test.enable, i eedback(3) ,i_o(2)) ; 
prpt_stage30  :  prpt.stage 

port  map(seed(l) ,load_seed,polynoraial(2) .feedback(l), reset, i_o(2) , 

clockl , clockl.bar ,clock2 ,clock2_bar , test .enable, feedback (2) ,i_o(l)) ; 
prpt.stage31  :  prpt.stage 

port  map(seed(0) ,load_seed,polynomial(l) .leedback(O) , reset, i_o(l) , 

clockl , clockl.bar , clock2 , clock2_bar .test.enable, feedback(l) , i_o(0) ) ; 


II 


and_gatel  :  and_gate  port  map(polynomial(0) ,i_o(0) ,f eedback(O)) ; 

invl  :  inv  port  map(i_o(31) ,temp(31)) ; 
inv2  :  inv  port  map(i_o(30) ,temp(30) ) ; 
inv3  :  inv  port  map(i_o(29) ,temp(29)) ; 
inv4  :  inv  port  map(i_o(28) ,temp(28)) ; 
invS  :  inv  port  map(i_o(27) ,temp(27)) ; 
inv6  :  inv  port  map(i_o(26) ,temp(26) ) ; 
inv7  :  inv  port  map(i_o(25) ,temp(2S) ) ; 
inv8  :  inv  port  map(i_o(24) ,temp(24) ) ; 
inv9  :  inv  port  map(i_o(23) ,temp(23) ) ; 
invlO  :  inv  port  map(i_o(22) ,temp(22)) ; 
invll  :  inv  port  map(i_o(21) ,terap(21)) ; 
invl2  :  inv  port  map(i_o(20) ,temp(20)) ; 
invl3  :  inv  port  map(i_o(19) ,temp(19)) ; 
invl4  :  inv  port  map(i_o(18) , temp(18) ) ; 
invl5  :  inv  port  map(i_o(17) ,temp(17)) ; 
invl6  :  inv  port  map(i_o(16) ,temp(16)) ; 
invl7  :  inv  port  map(i_o(15) ,temp(15)) ; 
invl8  :  inv  port  map(i_o(14) ,temp(14)> ; 
invl9  :  inv  port  map(i_o(13) ,temp(13)) ; 
inv20  :  inv  port  map(i_o(12) ,temp(12)) ; 
inv21  :  inv  port  map(i_o(ll) ,temp(ll)) ; 
inv22  :  inv  port  map(i_o(10) ,temp(10)) ; 
inv23  :  inv  port  map(i_o(9) ,temp(9)) ; 
inv24  :  inv  port  map(i_o(8)  ,temp(8)) ; 
inv25  :  inv  port  map(i_o(7) ,temp(7)) ; 
inv26  :  inv  port  map(i_o(6) ,temp(6)) ; 
inv27  :  inv  port  map(i_o(5) ,temp(5)) ; 
inv28  :  inv  port  map(i_o(4) ,temp(4)) ; 
inv29  :  inv  port  map(i_o(3) ,temp(3)) ; 
inv30  :  inv  port  map(i_o(2) ,temp(2)) ; 
inv31  :  inv  port  map(i_o(l) ,temp(l)) ; 
inv32  :  inv  port  map(i_o(0) ,terap(0)) ; 
inv33  :  inv  port  map(temp(31) ,pattern(3l)) ; 
inv34  :  inv  port  map (temp (30) ,pattern(30)) ; 
inv35  :  inv  port  map(temp(29) ,pattern(29)) ; 
inv36  :  inv  port  map(temp(28) ,pattern(28)) ; 
inv37  :  inv  port  map(temp(27) ,pattern(27)) ; 
inv38  :  inv  port  map(temp(26) ,pattern(26)) ; 
inv39  :  inv  port  map(temp(25) ,pattern(25)) ; 
inv40  :  inv  port  map(temp(24) ,pattern(24)) ; 
inv41  :  inv  port  map(temp(23) ,pattern(23)) ; 
inv42  :  inv  port  map(temp(22) ,pattern(22)) ; 
inv43  :  inv  port  map(temp(21) ,pattern(21)) ; 
inv44  :  inv  port  map(temp(20) ,pattern(20)) ; 
inv45  :  inv  port  map(temp(19) ,pattern(19)) ; 
inv46  :  inv  port  map(temp(18) ,pattern(18)); 
inv47  :  inv  port  map(temp(17) ,pattern(17)) ; 
inv48  :  inv  port  map(temp(16) ,pattern(16)) ; 
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inv49  :  inv  port 
inv50  :  inv  port 
inv51  :  inv  port 
inv52  :  inv  port 
invS3  :  inv  port 
invS4  :  inv  port 
invS5  :  inv  port 
invS6  :  inv  port 
inv57  :  inv  port 
inv58  :  inv  port 
inv59  :  inv  port 
inv60  :  inv  port 
inv61  :  inv  port 
inv62  :  inv  port 
inv63  :  inv  port 
inv64  :  inv  port 
end  structural; 


map(temp(15) ,pattern(15)) ; 
map(temp(14) ,pattern(14)) ; 
map( temp( 13) ,pattern( 13) ) ; 
map(temp( 12) ,pattern( 12) ) ; 
map(temp(ll) ,pattern(ll)) ; 
map(temp(10) ,pattern( 10) ) ; 
map(temp(9) ,pattern(9)) ; 
map(temp(8) ,pattern(8)) ; 
map(temp(7) ,pattern(7)) ; 
map(temp(6) ,pattern(6)) ; 
map(temp(5) ,pattern(5)) ; 
map(temp(4) ,pattern(4)) ; 
map(temp(3) ,pattern(3)) ; 
map(temp(2) ,pattern(2)) ; 
map(tempd)  ,pattern(l)) ; 
map(temp(0) ,pattern(0)) ; 


—  prpt_bch.vh<l  — 


— entity  prpt  is 


— 

port (seed 

in 

bit_vector(31  downto  0); 

— 

load.seed  : 

in 

bit; 

— 

polynomial  : 

in 

bit_vector(3l  downto  0) ; 

— 

reset  : 

in 

bit; 

-- 

clockl  : 

in 

bit; 

— 

clockl.bar  : 

in 

bit; 

— 

clock2  : 

in 

bit; 

— 

clock2_bar  : 

in 

bit ; 

— 

test.enable : 

in 

bit ; 

-- 

pattern  : 

out  bit_vector(31  downto  0)): 

— begin 

—  assert  ((not  clockl  =  clockl_bar)  or  (not  clockl 'stable(2  ns)))  report 
"bad  clockl  result"  severity  failure; 

-  assert  ((not  clock2  =  clock2_bar)  or  (not  clock2 ’ stable(2  ns)))  report 

-  "bad  clock2  result"  severity  failure; 

— end  prpt; 


architecture  beh  of  prpt  is 

signal  work.pattern  :  bit.vector (31  downto  0); 
begin 

process ( seed , load. seed .polynomial .reset , clockl , test .enable) 

variable  temp.pattern  :  bit_vector(31  downto  0); 
variable  old.temp.pattern  :  bit.vector (31  downto  0); 
variable  feedback  :  bit_vector(31  downto  0); 
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bag  in 


if  rasat  =  *1*  then 

for  i  in  temp_pat tern’ range  loop 
temp_pattern(i)  :=  'O'; 
and  loop; 
else 

if  clockl  =  '0'  and  not  clockl 'stable  then 
if  load_seed  =  '1'  then 
temp_pattern  :=  seed; 
and  if; 

elsif  clockl  =  'I'  and  not  clockl ' stable  then 
if  test_enable  =  ’ 1 ’  then 

old_temp_pattern  :=  temp_pattem; 

for  i  in  temp_pattern’low  to  (temp_patt era 'high  -  1)  loop 
temp_pattern(i)  :=  temp_pattern(i  +  1); 
end  loop; 

feedback(O)  :=  polynomial(O)  rad  old_temp_pattern(0) ; 
for  i  in  (f eedback'low  +  1)  to  feedback 'high  loop 

feedback(i)  ;=  (polynomial(i)  rad  old_temp_pattern(i))  xor 

f eedback(i-l) ; 

end  loop; 

temp_pattern(31)  :=  f eedback(31) ; 
end  if; 
end  if; 
end  if; 

work_pattern  <=  temp_pattern; 
end  process; 
process(clock2) 
begin 

if  clock2  =  '1'  and  not  clock2’ stable  then 
pattern  <=  work_pattern; 
end  if ; 
end  process; 
end  beh; 

—  prpt^en.vlid  — 

— entity  prpt  is 


— 

port (seed 

in 

bit_vector(31  downto  0); 

— 

load.seed 

in 

bit; 

— 

polynomial  : 

in 

bit_vector(31  downto  0); 

— 

reset  : 

in 

bit ; 

— 

clockl 

in 

bit; 

-- 

clockl_bar  : 

in 

bit; 

— 

clock2 

in 

bit; 

— 

clock2_bar  : 

in 

bit ; 

— 

test.enable: 

in 

bit; 

— 

pattern 

out  bit_vector(31  downto  0)) 

— begin 
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—  assert  (((not  clockl  =  clockl.bar)  or  (not  clockl ’stable(2  ns))) 
or  (now  =  0  ns))  report 
"bad  clockl  result"  severity  failure; 

-  assert  ((not  clock2  =  clock2_bar)  or  (not  clock2’ stable (2  ns)))  report 

-  "bad  clock2  result"  severity  failure; 

— end  prpt; 

architecture  struct_generate  of  prpt  is 

component  prpt.stage 

port (seed  :  in  bit; 

load.seed  :  in  bit; 
polynomial  :  in  bit; 
feed_in  :  in  bit; 
reset  :  in  bit; 

input  :  in  bit ; 

clockl  :  in  bit; 
clockl.bar  :  in  bit; 
clock2  :  in  bit; 
clock2_bar  ;  in  bit; 
test_enable:  in  bit; 
feed_out  :  out  bit; 

output  :  out  bit); 

end  component; 

component  prpt_stagel 

port(seed  :  in  bit; 

load_seed  :  in  bit; 
reset  :  in  bit; 

input  :  in  bit; 

clockl  :  in  bit; 
clockl_bar  :  in  bit; 
clock2  :  in  bit; 
clock2_bar  :  in  bit; 
test_enable:  in  bit; 
output  :  out  bit); 

end  component; 

for  all  :  prpt_stagel  use  entity  work. prpt_stagel (structural) ; 

component  and_gate 

port  (signal  X,Y:in  bit; 

signal  Output: out  bit); 

end  component; 

for  all  :  and_gate  use  entity  work . and_gate(  and_gate  ); 

component  inv 

generic(constant  tPLH:TIME:=0  ns; 

constant  tPHL:TIME:=0  ns); 
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port  (signal  A: in  bit; 

signal  B:out  bit); 
end  component; 

signal  feedback  :  bit_vector(31  downto  0); 
signal  i_o,temp  :  bit_vector(31  downto  0); 

begin 

prpt_stagel_l  :  prpt_stagel 

port  map(seed(31) , load_seed, reset ,feedback(3i) , clockl , clock l_bar, 
clock2 , clock2_bar , test.enable , i_o(31 ) ) ; 

prpt  :  for  i  in  31  downto  1  generate 
prpt_stage_i  :  prpt_stage 

port  map(seed(i-l) ,load_seed,polynomial(i) .feedback(i-l) , 
reset , i_o (i) , clockl , clock l_bar , clock2 , clock2_bar , 
test_enable,f eedback(i) ,i_o(i-l)) ; 
end  generate; 

and_gatel  :  and_gate  port  mapCpolynomial(O) ,i_o(0) .feedback(O)) ; 

inv_inv  :  for  i  in  0  to  31  generate 
invA  :  inv  port  map(i_o(i) ,temp(i)) ; 
invB  :  inv  port  map(temp(i) ,pattern(i)) ; 
end  generate; 

end  struct_generate; 


—  master.vlid  — 


entity  master.clock  is 
generic 

(  constant  clock_low_time  :  time  :=  60  ns; 
constant  duty_cycle_time  :  time  :=  40  ns); 

port 

(  master_go 
Phil 

end  master_clock; 
architecture  master_clock  of  master.clock  is 
begin 

process (master.go , phil ) 
begin 

if  (master_go  =  ’1’)  then 
case  Phil  is 

when  *1*  =>  Phil  <=  'O’  after  duty_cycle_time; 


:  in  bit; 

:  buffer  bit  :=  'I'); 
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when  *0’  =>  Phil  <=  *1*  after  clock_low_time; 
when  others  =>  assert  false 

report  "  Master  clock  in  undefined  state" 
severity  ERROR; 
end  case; 
end  if; 
end  process; 
end  master.clock; 


—  slave. vlid  — 


entity  slave_clock  is 
generic 

(  constant  pulse_width 
constant  pulse_delay 


time  :=  40  ns; 
time  : =  10  ns) ; 


port 

(  external_trigger 
Clock.out 


:  in  bit; 

:  out  bit  :=  ’O’) ; 


—  This  is  a  leading  edge  triggered  clock! 
end  slave_clock; 

architecture  slave_clock  of  slave.clock  is 


begin 

clock:block  ((external.trigger  =  '0’)and  not(external_trigger’stable)) 
begin 

process  (guard) 
begin 

if  GUARD  then 

Clock.out  <=  *1’  after  pulse_delay, 

’0’  after  pulse_width+pulse_delay; 

end  if ; 
end  process; 
end  block; 
end  slave.clock; 


—  prptconf.vhd  — 


configuration  prptconf  of  work.prpt  is 
for  struct.generate 

for  prpt 
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for  prpt_stage_i  :  prpt_stage  use  entity  work. prpt_stage( structural) ; 
end  for; 
end  for; 

for  inv_inv 

for  invA:inv  use  entity  work. inv(inv) ; 
end  for; 

for  invB:inv  use  entity  work. inv(inv) ; 
end  for; 
end  for; 

end  for; 
end  prptconf; 


The  file  std.vhd  contains  a  group  of  basic  gates:  two  types  of  invertor,  a  two-input  nand 
gate,  a  three-input  nand  gate,  a  two-input  exclusive  or  gate,  a  three-input  exclusive  or  gate,  a  nor 
gate,  a  p-type  transistor,  an  n-type  transistor,  and  a  transmission  gate.  and_gate.vhd  builds  a 
two-input  and  gate  from  an  invertor  and  a  two-input  nand  gate.  or_gate.vhd  builds  a  two-input 
or  gate  from  an  invertor  and  a  nor  gate.  dff_reset_beh.vhd  is  a  behavioral  description  of  a  D 
latch  with  reset. 

prpt .stagel.vlid  contains  the  component  representing  the  MSB  of  the  linear  feedback  shift 
register.  As  shown  in  Figure  1,  the  component  consists  of  two  D  latches  connected  to  form  a  dual- 
clocked  latch.  The  input  to  the  second  latch  is  the  output  from  the  first  latch,  clocked  in  as  clocks 
goes  high.  The  input  to  the  first  latch  is  dependent  on  whether  or  not  the  signals  loadseed  and 
test.enable  are  set.  [f  load-seed  is  set,  then  seed  gets  latched  in  after  one  clock  cycle. 

If  tesLennhlc  is  set,  input  gets  latched  in  after  one  clock  cycle.  If  reset  is  set,  the  first  latch  is 
set  to  ‘0’  immediately,  and  the  second  is  set  to  ‘0’  as  clocks  goes  high.  To  ensure  proper  behavior 
of  this  component,  one  must  either  not  set  loadjseed  and  test.enable  at  the  same  time,  or  else  reset 
the  latch  immediately  before  loading  a  seed. 


Figure  1.  Schematic  of  prpt_stagel. 

Shown  in  Figure  2  is  pi-pt-stagc.vlul.  prpt-stagc.vhd  contains  the  component  representing 
the  31  I.SBs  of  the  shift  register.  The  component  consists  of  the  prptjstagel  component,  plus  two 
gates  to  control  t  he  feedback  feature  of  the  register.  If  polynomial  is  set,  then  input  and  feed-in  will 
be  exclusive  or’d  to  produce  feed.ont.  If  polynomial  is  not  set,  feed-out  receives  the  value  of  feetLtn. 
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Figure  2.  Schematic  of  prpt_stage. 


pipt.vhd  contains  the  structural  description  of  a  32-bit  linear  feedback  shift  register.  It 
consists  of  one  prptstagel  component,  31  prpt.stage  components,  two  invertors  per  stage,  and  an 
AND  gate.  The  invertors  are  needed  to  produce  the  pattern  output.  The  AND  gate  is  required 
to  produce  the  last  stage’s  feedback  signal.  Figure  3  is  a  schematic  of  the  arrangement  of  the 
components.  Since  the  output  from  each  stage  is  also  used  as  input  to  the  next  stage,  pattern 
(mode  out),  the  output  from  each  stage,  could  not  be  produced  directly  from  the  stage  components. 
An  internally  declared  signal,  Lo  is  used  in  the  stage  component  instantiations,  and  then  passed 
through  a  two-invertor  buffer  to  produce  pattern. 

prpt_beh.vlid  contains  the  behavioral  description  of  the  32-bit  linear  feedback  shift  register. 
It  consists  of  two  processes.  The  first  is  triggered  whenever  an  event  occurs  on  seed,  loadjseed, 
polynomial ,  reset,  clock 1,  or  tesLenable.  This  process  controls  resetting,  loading  new  seed  values, 
and  shifting  the  register  bit  values.  The  second  process  is  triggered  upon  an  event  on  clocks.  It 
controls  assigning  the  pattern  value  calculated  in  the  first  process  to  pattern  at  the  appropriate  time, 
when  clocks  goes  high.  The  first  attempt  at  a  behavioral  description  used  a  binary  division  scheme 
[3]  to  generate  the  bits  to  shift  into  the  register.  The  seed  was  the  dividend  and  the  polynomial 
was  the  divisor,  and  as  each  bit  of  the  quotient  was  calculated,  it  was  shifted  into  the  left  side  of 
the  pattern.  The  quotient  bits  are  calculated  as  follows.  If  the  remainder  (or  dividend,  if  this  is 
the  first  step  of  the  division)  has  an  MSB  of  T’,  then  the  quotient  bit  is  T\  Then,  the  polynomial 
is  copied  underneath  the  remainder  (or  dividend),  the  two  bit  vectors  are  exclusive  or’d,  and  the 
result  (remainder)  is  written  on  the  next.  line.  If  the  remainder  (or  dividend)  has  an  MSB  of ‘O’, 
tlu'ii  the  quotient  bit  is  'O’.  Then,  “00000”  is  written  underneath  the  remainder,  the  polynomial 
and  “00000”  are  exclusive  or’d  and  the  result  is  written  (or  the  polynomial  is  simply  copied)  on  the 
next  line.  No  matter  what  the  quotient  bit  is,  the  leading  ‘0’  of  the  remainder  is  discarded,  and 
the  next  bit  of  the  dividend  is  brought  down  and  written  as  the  LSB  of  the  remainder.  The  goal 
of  an  n-hit  linear  feedback  shift  register  is  to  produce  (2"  —  1)  unique  bit  patterns  (each  pattern 
except  all  zeroes)  before  repeating  the  set  of  patterns.  For  example,  the  binary  division  using  a 
seed  of  “1000"  and  a  polynomial  of  “10011”  (four-bit  shift  register,  shown  in  Figure  A  [3])  would 
be  as  follows: 
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Figure  3.  Schematic  of  prpt. 


Figure  4.  Schematic  of  1-Stage  prpt. 
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The  example  above  works  out  correctly,  since  no  patterns  are  repeated  until  all  15  (2n  —  1 
patterns  are  produced.  However,  the  following  example  shows  that  this  binary  division  algorithn 
does  not  work  for  all  seeds. 
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The  pattern  produced  after  the  third  quotient  bit  is  calculated  is  hex(A),  the  same  value  as 
the  seed. 

prpt.gen.vhd  contains  an  alternate  structural  description  of  the  register.  It  is  identical  to 
prpt.vhd  except  that  the  31  LSB  stages  and  the  64  invertors  are  instantiated  with  generate 
statements. 


master. vli<l  and  slave. vhd  comprise  a  leading-edge  triggered  dual  clock.  The  master  clock 
stays  high  for  60  nanoseconds,  transitions  to  low,  and  stays  low  for  40  nanoseconds.  The  output 
value  from  the  master  clock  is  the  input  for  the  slave  clock.  The  slave  clock  goes  high  10  nanoseconds 
after  the  master  clock  goes  low,  and  stays  high  for  40  nanoseconds.  It  then  transitions  to  low,  and 
remains  low  for  60  nanoseconds.  The  clocks  stop  cycling  when  the  master  clock  is  given  an  input 
of  ‘O’. 


prptconf.vlid  is  a  configuration  specification  needed  when  prpt.gen.vhd  is  used.  The 
generate  statements  make  it  necessary  to  configure  those  components  outside  of  the  architecture 
in  which  they  are  instantiated. 
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II.  WA  VES  Support  Source  Code 


■ —  waves  Jiead<!r.vhcl  — 


—  This  WAVES  dataset  uses  MATCH  to  compare  the  output  of  the  structural 

—  LFSR  to  the  output  ol  the  behavioral  model. 


TITLE  Pseudo-Random  Pattern  Generator 
CORPORATE. AUTHOR  WL/ELED 

INDIVIDUAL. AUTHOR  Captain  Karen  M.  Serafino 
RELEASE.DATE_AND.TIME  19-March-i991 

ORIGIN  Intermetrics,  Inc.  Standard  VHDL  1076  Support  Environment  Version  2.1 
DEVICE.ID  32-bit  linear  feedback  shift  register 

WAVES.FILENAME  waves.logic  WORK 
WAVES.UNIT  WAVES. INTERFACE  WORK 
WAVES.FILENAME  waves.codes  WORK 
WAVES.FILENAME  waves.device  WORK 
WAVES.UNIT  WAVES.OBJECTS  WORK 
WAVES.FILENAME  waves.form  WORK 

EXTERN AL.FILENAME  waves.external  uaves.external 

WAVEFORM.GENERATOR.PROCEDURE  WORK . WAVES.GENERATOR . WAVEFORM 


—  waves  Jogic.vlul 


use  work. waves.standard. all; 
package  waves.logic  is 

type  logic.value  is  (  logic.iO,  logic.il,  logic.oO,  logic.ol); 
function  value.dict ionary (value  :  logic.value)  return  event.value; 
end  waves.logic; 


package  body  waves.logic  is 

function  value_dictionary(value  :  logic.value)  return  event.value  is 
begin 

case  value  is 

when  logic.iO  =>  return  (state  =  low  and  strength  =  drive  and 

direction  =  stimulus  and  relevance  =  required); 
when  logic.il  =>  return  (state  =  high  and  strength  =  drive  and 

direction  =  stimulus  and  relevance  =  required); 
when  logic.oO  =>  return  (state  =  low  and  strength  =  drive  and 

direction  =  response  and  relevance  =  required); 
when  logic.ol  =>  return  (state  =  high  and  strength  =  drive  and 

direction  =  response  and  relevance  =  required); 

end  case; 

end  value.dictionary ; 
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end  waves.logic; 


—  wavcs_codes.vlid  — 


use  work. waves_logic. all; 
use  uork.waves_interface.all; 
package  waves_codes  is 

constant  pin_codes  :  string  :=  "01"; 
end  vaves_codes; 


—  wavesjdevice.vhd  — - 


package  waves_device  is 

type  test_pins  is  (st,te,ls,re, 

y31.y30,y29,y28,y27.y26,y25,y24.y23,y22,y21,y20,yl9,yl8,yl7,yl6, 
yl5,yl4,yl3,yl2,yll ,yl0,y9,y8 ,y7,y6,y5,y4,y3,y2,yl ,y0, 
s31,s30,s29,s28,s27,s26,s25,s24,s23,s22,s21,s20,sl9,sl8,Bl7,sl6, 
sl5 ,sl4 ,sl3  ,sl2 , sll , slO, s9 ,s8,s7,s6 , s5,s4,s3,s2,sl ,s0, 
p3 1 . p30 , p29 , p28 , p27 , p26 , p25 , p24 ,p23 , p22 , p21 , p20 , pl9 ,pl8 ,pl7 , pl6 . 
pl5,pl4,pl3,pl2 ,pll ,pl0,p9,p8,p7 ,P6 ,p5 ,p4 ,p3 ,p2,pl ,p0) ; 
end  waves_device; 


—  waves  Jbrin.vlid  — 


use  std.textio.all; 
use  work. waves_logic. all; 
use  work. waves_interf ace. all; 
use  work. waves_codes. all; 
use  work. waves_device. all; 
use  work. waves_objects. all; 
package  waves_generator  is 

procedure  waveform(signal  connect  :  inout  waves_port_list; 

signal  connect_ra  :  in  waves_match_list) ; 

end  waves_generator ; 

package  body  waves.generator  is 

procedure  waveform (signal  connect  :  inout  waves_port_list; 

signal  connect_m  :  in  waves_match_list)  is 
constant  tO  ;  event_time  :=  etime(0  ns); 
constant  input _pins  :  pinset  :=  new_pinset(( 
st,te,ls,re, 

y31,y30.y29,y28,y27,y26,y25,y24,y23,y22,y21,y20,yl9,yl8,yl7,yl6, 
yl5,yl4,yl3,yl2  ,yll ,yl0,y9,y8,y7,y6,y5,y4,y3,y2,yl,y0, 
s31,s30,s29,s28,s27,s26,s25,s24,s23,s22,s21,s20,sl9,sl8,sl7,sl6, 
slS,sl4,sl3,sl2,sll ,sl0,s9,s8,s7,s6,s5,s4,s3,s2,sl,s0)); 
constant  output_pins  :  pinset  :=  all.pins  and  not  input.pins; 
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constant  input_fs  :  frame_set  := 
frame_event((logic_iO,tO))  + 
f rame_event( (logic_il , tO) ) ; 
constant  output _fs  :  frame_s«t  := 
frame_event((logic_oO,tO))  + 
frame_event( (logic_ol,tO)) ; 
constant  fsa  :  frame_set_array  : = 

new_frame_set_array(input_f s ,input_pins)  + 
new_frame_set_array (output_f s ,output_pins) ; 
variable  td  :  time.data  :=  new_time_data(fsa) ; 
variable  slice  :  file.slice  :=  new_file_slice; 
file  lfsr_data  :  text  is  in  "vaves_external" ; 
constant  natch.pins  :  pinset  :=  all.pins; 
begin 

match(connect,hold,input_pins) ; 
match (connect , sample, out put _pins) ; 
loop 

read_f ile_slice(lf sr_data,slice) ; 
exit  when  slice. end_of_file; 

apply (connect .slice . codes .all .delay (slice .1 s_time) ,td) ; 
assert  (match(connect_m,match_pins))  report  "no  match"  severity  failure; 
end  loop; 
end  waveform; 
end  waves_generator; 


—  wavesjexternal.  — 


01010011 00000000000000000000000000000 1 0 1 000000000000000000000000000000000000000000000000000000000000  :  30  n* , 


=  4  0 

20  ns  , 

=3  1 

50  ns  , 

=  1  1 

50  ns  ; 

=  3  0 

2050  ns  ; 

=4  1 

190  ns  ; 

=4  0 

1 0  ns  . 

=  2  01 

=37  10100 

=  3  0 

705  ns  ; 

=  4  1 

190  ns  ; 

=  4  0 

10  ns  ; 

=3  1 

=37  11110  : 

=3  0 

705  ns  , 

=4  1 

190  ns  , 

=4  0 

5  ns  ; 

=  2  1 

5  ns  , 

=3  1 

=37  01010  : 

=3  0 

705  ns  ; 

=  4  1 

190  ns  , 

=  4  0 

10  ns  , 

=  3  1 

=37  001  10 

=  3  0 

1505  ns  , 

=  1  0 

0  ns  , 

wavcsJieader.vhd  is  the  WAVES  header  file  that  documents  the  order  of  analysis  of  the 
packages,  the  name  of  the  waveform  generator  procedure,  and  the  names  of  any  external  files. 

waves -logic,  vlid  contains  the  package  that  defines  the  WAVES-required  type  logic.value  and 
the  function  value. dictionary.  There  are  four  logic  values  in  this  model,  ‘0’  and  T’  bit  values  for 
both  the  input  and  output  pins,  valuc.diclionary  takes  a  parameter  of  type  logic.value  and  returns 
information  about  the  value’s  state,  strength,  direction,  and  relevance.  State  and  strength 
are  cither  high  and  drive  (for  ‘1’  values)  or  low  and  drive  (for  ‘O’  values).  Direction  is  stimulus 


for  input  pins  and  response  for  output  pins.  Relevance  is  required  for  all  pins  here.  Relevance  is 
used  by  the  test  bench  program  to  determine  the  pins  for  which  to  check  the  actual  values  against 
the  predicted  values. 

waves_codes.vhd  contains  the  package  that  defines  the  WAVES-required  constant  pin.codes. 

In  this  model,  only  bit  values  ‘O’  and  1’  are  used,  so  pin.codes  is  the  string  ”01”. 

waves_device.vhd  contains  the  package  that  defines  the  WAVES-required  enumerated  type 
test.pins.  test.pins  consists  of  one  unique  name  for  each  input  and  output  pin  of  the  shift  register.  * 

The  order  of  values  in  test  vector  waveforms  must  match  the  order  of  pin  names  in  test.pins. 

The  pin  names  are  abbreviated  forms  of  stop ,  test.enable,  loadjseed,  reset,  polynomials  1)  downto 
polynomtal(O),  seed(31)  downto  seed(O),  and  paitern(Sl)  downto  patiem(O),  respectively.  • 

wavcs_form.vhd  contains  the  package  that  defines  the  WAVES-required  waveform  generator 
procedure.  There  is  no  specific  name  required;  this  procedure  is  named  waveform.  The  procedure 
supplies  waveforms  for  the  shift  register  by  reading  data  from  an  external  file  waves  .external.. 

Each  record  (line)  of  the  external  file  supplies  a  value  for  each  test  pin  at  each  given  simulation 
time.  First,  a  lime-data  variable  (called  td  here)  must  be  built.  Several  intermediate  constants  are 
declared  to  avoid  having  one  huge  declaration,  td  is  formed  from  a  frame  set  array  fsa.  A  frame 
set  array  is  like  a  template,  with  each  pin  having  a  slot  for  each  logic-value  it  can  have,  at  time 
0  nanoseconds.  The  two  match  procedure  calls  are  for  setting  the  m.control  value  for  each  pin. 

Input  pins  get  a  value  of  hold,  meaning  no  checking  of  actual  versus  predicted  pin  values  is  done 
by  the  function  match.  Output  pins  get  a  value  of  sample,  meaning  checking  of  actual  versus 
predicted  values  will  be  done  on  these  pins  by  function  match.  The  loop  in  the  procedure  reads 
a  record  from  the  external  data  file,  applies  the  given  bit  values  for  each  specified  pin,  and  waits 
for  the  amount  of  time  specified  by  the  delay  time  value  in  each  record.  There  is  also  a  call  to 
the  function  match  in  the  loop.  After  each  waveform  is  applied,  and  simulation  time  is  advanced 
appropriately  according  to  the  given  delay  time,  each  pin  with  an  m_controI  value  of  sample 
gets  its  actual  value  checked  against  the  value  predicted  for  it  in  the  external  data  file.  If  there 
is  a  discrepancy,  the  assertion  statement  will  cause  simulation  to  stop.  This  continues  until  the 
end-of-file  of  waves_external.  is  reached. 
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III.  Test  Bench  Programs 

-  t«!.st_]>i-|>t.vh<l  This  Lost  licncli  <lo<*s  no),  use  WAVES  — 


entity  test  is  end; 
architecture  test  of  test  is 

> 

component  prpt 

port(seed  :  in  bit_vector(31  downto  0); 

*  load_seed  :  in  bit; 

polynomial  :  in  bit_vector(31  dovnto  0); 

reset  :  in  bit; 

clockl  :  in  bit; 

clockl_bar  :  in  bit; 

clock2  :  in  bit; 

clock2_bar  :  in  bit; 

test.enable:  in  bit; 

pattern  :  out  bit_vector(31  downto  0)); 
end  component; 

for  prptl  :  prpt  use  entity  work. prpt ( structural ) ; 

for  prpt2  :  prpt  use  entity  work . prpt (beh) ; 

for  prpt3  :  prpt  use  configuration  work. prpt conf ; 

component  inv 

generic(constant  tPLH:TIME:=0  ns; 

constant  tPHL:TIME:=0  ns); 
port  (signal  A: in  bit; 

signal  B:out  bit); 
end  component; 

for  all  :  inv  use  entity  work. inv (  inv  ); 

component  master_clock 
generic 

(  constant  clock_low_time  :  time  :=  60  ns; 

constant  duty_cycle_time  :  time  :=  40  ns); 

port 

(  master_go  :  in  bit; 

Phil  :  buffer  bit  :=  *  1*); 

a  end  component ; 

for  all  :  master.clock  use  entity  work.master_clock(master_clock  ); 

t 

component  slave_clock 
generic 

(  constant  pulse.width  :  time  :  =  40  ns; 
constant  pulse.delay  :  time  :=  10  ns); 

port 

(  external.trigger  :  in  bit; 

Clock.out  :  out  bit  :=  >0'); 
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•nd  component; 


f or  all  :  slave.clock  use  entity  work.slave_clock(slave_clock  ); 

component  or.gate 

port  (X,  Y  :  in  bit; 

Output  :  out  bit); 

end  component; 

for  all  :  or.gate  use  entity  work.or.gate(or.gate) ; 

component  and.gate 
port  (signal  X,Y:in  bit; 

signal  Output: out  bit); 
end  component; 

for  all  :  and.gate  use  entity  work.and_gate(  and_gate  ); 

signal  pattern  :  bit_vector(95  downto  0); 
signal  polynomial  :  bit_vector(31  downto  0)  := 

"00110000000000000000000000000000"; 
signal  seed  :  bit_vector(31  downto  0)  :* 

"01010000000000000000000000000000"; 
signal  load.seed  :  bit  :=  'O’; 
signal  reset  :  bit  :=  *  1  * ; 
signal  clock 1  :  bit  ,1>; 
signal  clock l_bar  :  bit  'O'; 
signal  clock2  :  bit  :=  'O’; 
signal  clock2_bar  :  bit  :*  ’1’; 
signal  CP  :  bit  :=  ’1’; 
signal  stop  :  bit  :=  ’O’; 

alias  patl  :  bit_vector(31  downto  0)  is  pattern(95  downto  64); 

alias  pat2  :  bit_vector(31  downto  0)  is  pattern(63  downto  32); 

alias  pat3  :  bit_vector(31  downto  0)  is  pattern(31  downto  0); 

signal  interml , interm2  :  bit; 
signal  test.enable  :  bit  :  =  ’1'; 

begin 

invl  :  inv  port  map(clockl ,clockl_bar) ; 
inv2  :  inv  port  map(clock2,clock2_bar) ; 
prptl  :  prpt 

port  map(seed ,load_seed, polynomial, reset, clockl, clockl.bar, 
clock2 , clock2_bar , test.enable , patl) ; 

prpt 2  :  prpt 

port  map(seed , load.seed .polynomial , reset , clockl , clock l_bar , 
clock2,clock2_bar .test .enable, pat 2) ; 

prpt 3  :  prpt 

port  map(seed , load.seed .polynomial .reset , clockl , dockl.bar , 
clock2, clock2_bar, test.enable, pat3) ; 
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master.clockl  :  master.clock  port  map(stop,CP) ; 
slave.clockl  :  slave.clock  port  map(CP ,clock2) ; 
and.gatel  :  and.gate  port  nap(CP,test_enable,internl) ; 
and_gate2  :  and.gate  port  map(load_seed,CP,interm2); 
or.gatel  :  or.gate  port  map(internl , interm2,clockl) ; 

load.seed  <=  *  1*  after  50  ns, 

’0’  after  150  ns, 

*  1*  after  2400  ns, 

'0'  after  2495  ns, 

’1'  after  3400  ns, 

*0'  after  3495  ns, 

*1*  after  4400  ns, 

‘O'  after  4495  ns, 

*1*  after  5400  ns, 

’0’  after  5495  ns; 

reset  <=  ’O’  after  30  ns, 

’ 1 ’  after  2200  ns , 

‘0’  after  2390  ns, 

*1*  after  3200  ns, 

*0'  after  3390  ns, 

*1*  after  4200  ns, 

*0’  after  4390  ns, 

*1*  after  5200  ns, 

*0'  after  5390  ns; 


stop  <=  ' 1*  after  100  ns, 

'O’  after  7000  ns; 

test.enable  <=  ' 1 ’ , 

’O'  after  2400  ns, 

’ 1*  after  4395  ns; 

seed  <=  "10100000000000000000000000000000"  after  2400  ns, 
"11110000000000000000000000000000"  after  3400  ns, 
"01010000000000000000000000000000"  after  4400  ns, 
"00110000000000000000000000000000"  after  5400  ns; 

process 

variable  wait.var  :  boolean  :=  true; 
begin 

if  wait.var  then 
vait  for  40  ns; 
vait.var  :=  false; 

assert  (not  patl’stable)  or  (not  pat2'stable)  or  (not  pat3'stable)  or 
((patl  =  pat2)  and  (patl  =  pat3))  report  "patterns  do  not  natch" 
severity  failure; 
vait  for  55  ns; 

else 
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wait  lor  100  ns ; 

assert  (not  patl 'stable)  or  (not  pat2'stable)  or  (not  pat3’stable)  or 
((patl  =  pat2)  and  (patl  =  pat3))  report  "patterns  do  not  natch" 
severity  failure; 

assert  (stop  =  *  1*)  report  "done"  severity  failure; 
end  if; 
end  process; 

end  test; 


—  test  .hcncli.vlul  WAVES  test  bench  — 


use  std.textio.all; 
use  work. waves.system. all; 
use  work. waves.logic. all; 
use  work. waves. interface. all; 
use  work. waves.device. all; 
use  work. waves.objects. all; 
use  work. waves.generator . all; 
entity  test  is  end; 
architecture  test  of  test  is 


component  prpt 
port (seed 

load.seed  : 
polynomial  : 
reset 

clockl  : 
clockl.bar  : 
clock2  : 
clock2_bar  : 
test. enable: 
pattern  : 
end  component; 


in  bit_vector(31  downto  0); 
in  bit; 

in  bit_vector(31  downto  0) ; 

in  bit; 

in  bit; 

in  bit; 

in  bit; 

in  bit; 

in  bit; 

out  bit_vector(31  downto  0)); 


for  prptl  :  prpt  use  entity  work. prpt (structural); 

for  prpt2  :  prpt  use  entity  work. prpt (beh) ; 

for  prpt3  :  prpt  use  configuration  work.prptconf ; 


component  inv 

generic(constant  tPLH:TIHE:=0  ns; 

constant  tPHL:TIME:=0  ns); 
port  (signal  A: in  bit; 

signal  B:out  bit); 
end  component; 

for  all  :  inv  use  entity  work.inv(  inv  ); 


component  master.clock 


* 
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generic 

(  constant  clock.low.time  :  time  :=  60  ns; 
constant  duty.cycle.time  :  time  : =  40  ns); 

port 

(  master_go  :  in  bit; 

Phil  :  buller  bit  :=  *1*); 

end  component ; 

lor  all  :  master_clock  use  entity  work .mast er_clock(master_clock  ); 

component  slave.clock 
generic 

(  constant  pulse.width 
constant  pulse.delay 

port 

(  external_trigger 
Clock.out 
end  component; 

lor  all  :  slave.clock  use  entity  work. slave_clock(slave. clock  ); 

component  or.gate 

port  (X,  Y  :  in  bit; 

Output  :  out  bit); 

end  component; 

lor  all  :  or.gate  use  entity  work. or .gate (or.gate) ; 

component  and.gate 

port  (signal  X,Y:in  bit; 

signal  Output: out  bit); 
end  component; 

lor  all  :  and.gate  use  entity  work. and.gate (  and.gate  ); 

lunction  data_to_char(data  :  logic.value)  return  character  is 
begin 

case  data  is 

when  logic.iO  =>  return  'O’; 
when  logic.il  =>  return  '1'; 
when  logic.oO  =>  return  ’O’; 
when  logic.ol  =>  return  ’1’; 
end  case; 
end  data.to.char ; 

lunction  data_to_bit(data  :  logic.value)  return  bit  is 
begin 

case  data  is 

when  logic.iO  =>  return  ’O’; 
when  logic.il  =>  return  ’1’; 
when  logic.oO  =>  return  ’O’; 
when  logic.ol  =>  return  ’1’; 


:  time  :  =  40  ns; 

:  time  :=  10  ns) ; 

:  in  bit; 

:  out  bit  :=  ’O') ; 
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end  data_to_bit; 

subtype  test_pin_range  is  integer  range 
test_pins ’pos(test_pins ’left)  +  1  to 
test.pins ’pos(test_pins ’right)  +  1; 
signal  test.vector  :  bit_vector(test_pin_range) ; 
alias  patl  :  bit_vector(31  downto  0)  is  test_vector(69  to  100); 
alias  polynomial  :  bit_vector(31  dovnto  0)  is  test_vector(6  to  36); 
alias  seed  :  bit_vector(31  downto  0)  is  test_vector(37  to  68); 
alias  load.seed  :  bit  is  test_vector(3) ; 
alias  reset  :  bit  is  test_vector(4) ; 
signal  clockl  :  bit; 
signal  clock l.bar  :  bit; 
signal  clock2  :  bit; 
signal  clock2_bar  :  bit; 
signal  CP  :  bit; 

alias  stop  :  bit  is  test_vector(l) ; 

signal  pat2  :  bit_vector(31  downto  0); 

signal  pat3  :  bit_vector(31  downto  0); 

signal  interml , interm2  :  bit; 

alias  test_enable  :  bit  is  test_vector(2) ; 

signal  connect  :  waves_port_list(test_pin_range) ; 

signal  connect_m  :  waves_match_list(test_pin_range) ; 

begin 

waves  :  wavef orm(connect ,connect_m) ; 
read  :  process(connect) 
begin 

stop  <=  transport  data_to_bit(logic_value’val(connect(l) .l_value)) ; 
test_enable  <=  transport 

dat a_to_bit ( logic. value ’ val ( connect (2) . l.value) ) ; 
load.seed  <=  transport 

data_to_bit(logic_value* val (connect (3) ,l_value)) ; 
reset  <=  transport  data_to_bit(logic_value’val(connect(4) .l.value)) ; 
for  i  in  polynomial 'high  downto  polynomial 'low  loop 
polynomial (i)  <=  transport 

data_to_bit (logic.value ’ val( connect (36— i) . l.value) ) ; 
end  loop; 

for  i  in  seed ’high  downto  seed 'low  loop 
seed(i)  <=  transport 

data_to_bit (logic.value ’ val(connect (68-i) . l.value) ) ; 
end  loop; 
end  process; 

invl  :  inv  port  map(clockl ,clockl_bar) ; 
inv2  :  inv  port  map(clock2,clock2_bar) ; 
prptl  :  prpt 

port  map(seed,load_seed, polynomial .reset .clockl ,clockl_bar , 
clock2 , clock2_bar , test.enable , patl) ; 

prpt 2  :  prpt 

port  map( seed , load.seed .polynomial .reset , clockl , clockl.bar , 


clock2 , clock2_bar , test .enable, pat 2)  ; 

prpt3  :  prpt 

port  map( seed, load_seed, polynomial .reset , clockl .clock l_bar , 
clock2 , clock2_bar , test .enable ,pat3) ; 

master.clockl  :  master.clock  port  map(stop.CP) ; 
slave.clockl  :  slave.clock  port  map(CP ,clock2) ; 
and.gatel  :  and.gate  port  map(CP , test_enable,interral) ; 
and_gate2  :  and.gate  port  map(load_seed, CP , interm2) ; 
or.gatel  :  or.gate  port  map(interml , interm2 .clockl) ; 

match. proc  :  process 

variable  first.time  :  boolean  :=  true; 
type  ev.ptr  is  access  system_event_value ; 
variable  ev  :  ev.ptr; 
variable  rel_flag,dir_flag  :  boolean; 

-variable  outline  :  line;  —  for  debugging 
-file  outfile  :  text  is  out  "match. out"; 
begin 

if  first.time  then 

for  j  in  test_pin_range  loop 
connect_m( j) .m.value  <=  true; 
end  loop; 

first.time  :=  false; 
end  if ; 

wait  until  pat  1’ stable; 
for  i  in  test_pin_range  loop 
ev  :  = 

new  system_event_value’ (value_dictionary(logic_value’ val (connect (i) .l.value))) ; 
dir.flag  :=  false; 
rel.flag  :=  false; 
for  k  in  ev. all’ range  loop 

if  ev(k).kind  =  direction.kind  then 

if  ev(k). value  =  direction.type’pos (response)  then 
dir.flag  :=  true; 
end  if ; 

elsif  ev(k).kind  =  relevance.kind  then 

if  ev(k). value  =  relevance.type ’pos (required)  then 
rel.flag  :=  true; 
end  if ; 
end  if ; 
end  loop; 

if  (connect(i) .m.control  =  sample)  and  dir.flag  and  rel.flag  then 

if  (test.vector(i)  =  pat2(100-i))  and  (test.vector(i)  =  pat3(100-i))  then 
connect.m(i) .m.value  <=  connect_m(i) .m.value  and  true; 
else 

connect.m(i) .m.value  <=  connect.m(i) .m.value  and  false; 
write(outline.now) ;write(outline , i) ; 
wr it e (out line, test. vector ( i)  ) ; 

write (out line,data_to_bit(logic_value’val(connect(i) .1. value))) ; 
writeline(outf ile, outline) ; 


end  if; 
end  if ; 
end  loop; 
end  process; 

view  :  process (test_enable,load_seed, stop, reset .polynomial, seed) 
variable  outline  :  line; 

file  outfile  :  text  is  out  "waves . out" ;  ‘ 

begin 

writeCoutline, now) ; 

writeline(outf ile , outline) ;  * 

writeCoutline, string’O'stop  :  ")); 
writeCoutline, stop) ; 
writeline(outf ile, outline) ; 
write(outline, string’ ("test_enable  :  ")); 
write(outline,test_enable) ; 
writeline(outf ile, outline) ; 
writeCoutline, string’ C"load_seed  :  ••)); 
write(outline,load_seed) ; 
writelineCoutf ile, outline) ; 
vrite(outline,string’("reset  :  ")); 
write(outline .reset) ; 
writelineCoutf ile, outline) ; 
write(outline,string’("polynomial  :  ")); 
for  i  in  polynomial ’high  downto  polynomial ’ low  loop 
write(outline, polynomial (i)); 
end  loop; 

writelineCoutf ile, outline) ; 
writeCoutline, string’ C'seed  :  ")); 
for  i  in  seed ’high  downto  seed ’low  loop 
writeCoutline, seed(i)) ; 
end  loop; 

writelineCoutf ile, outline) ; 
writeCoutline, string’ O'pattern  :  ")); 
for  i  in  pat 1 ’high  downto  pat  1’ low  loop 
writeCoutline, patlCi)) ; 
end  loop; 

writelineCoutf ile , outline) ; 
end  process; 

lfsr.out  :  processCpatl) 

variable  outline  :  line;  * 

file  out_lfsr  :  text  is  out  "lfsr.out"; 
begin 

writeCoutline, stop) ;  1 

writeCoutline, test.enable) ; 
writeCoutline, load_seed) ; 
writeCoutline, reset) ; 

for  i  in  polynomial 'high  downto  polynomial ’ low  loop 
writeCoutline, polynomial(i) ) ; 
end  loop; 
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lor  i  in  seed'high  dovnto  seed'low  loop 
write(outline,seed(i)) ; 
end  loop; 

write(outline,string’("  :  ")); 
urite(outline ,now) ; 

Hriteline(out_llsr .outline) ; 
lor  i  in  patl’high  downto  patl'low  loop 
write(outline,patl(i>) ; 
end  loop; 

writeline(out_lf sr .outline) ; 
end  process; 

end  test; 

File  test_prpt.vlul  is  a  pattern  generator  test  bench  that  does  not  use  a  WAVES  dataset. 
It  generates  test  vectors  identical  to  those  built  by  the  waveform  generator  procedure  in  chapter  2. 
This  test  bench  uses  three  different  architectures  for  the  entity  prpt,  a  structural  one,  a  behavioral 
one,  and  a  structural  model  that  uses  generate  statements  to  instantiate  the  prpt.stage  and  inti 
components.  It  compares  the  outputs  from  the  three  prpt  components  against  each  other.  If  there 
is  a  discrepancy,  simulation  is  stopped  with  an  assertion  statement.  The  test  bench  also  contains 
the  dual  clock  and  its  associated  gates. 

test_bench.vlul  is  the  test  bench  that  uses  a  WAVES  dataset.  It  contains  the  same  com¬ 
ponents  as  test_prpt.vhd,  along  with  a  concurrent  call  to  the  waveform  generator  procedure,  a 
process  to  set  the  match  values  for  the  output  pins,  a  process  that  feeds  waveform  information 
to  internal  signals,  and  processes  that  write  input  and  output  data  to  external  files.  It  also  has 
functions  that  convert  logic.value  objects  to  characters  and  bits.  It  does  not  manually  generate 
test  vectors,  but  uses  the  waveform  generator  procedure  to  build  them  from  the  external  file. 

These  two  test  benches  produce  the  same  input  waveforms  and  output  vectors. 
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IV.  Command  File 


-  Intermetrics,  Inc.  command  file  - 

vis  define  waves_standard  work 

vhdl  std.vhd 

vhdl  and_gate.vhd 

vhdl  or_gate.vhd 

vhdl  dff_reset_beh. vhd 

vhdl  prpt_stagel . vhd 

vhdl  prpt_stage . vhd 

vhdl  prpt.vhd 

vhdl  prpt_beh.vhd 

vhdl  prpt_gen.vhd 

vhdl  master. vhd 

vhdl  slave. vhd 

vhdl  prptconf.vhd 

mg  inv"(inv)" 

mg  invz"(invz)M 

mg  nand_gate"(nand_gate)" 

mg  nand3_gate" (nand3_gate)" 

mg  xor_gate"(xor_gate)" 

mg  xor_gate2"(xor_gate2)" 

mg  nor_gate"(nor_gate)" 

mg  ptrans"(ptrans)" 

mg  ntrans" (ntrans)" 

mg  tgate" (tgate)" 

mg  and_gate" (and_gate)" 

mg  or_gate"(or_gate)" 

mg  dff_reset"(beh)" 

mg  prpt_stagel"(structural)" 

mg  prpt_stage"(structural)" 

mg  prpt'*( structural)" 

mg  prpt"(beh)" 

mg  prpt"(struct_generate)" 

mg  master_clock"(master_cl  .V)" 

mg  slave_clock"(slave_clock 

mg  prptconf 

vhdl  waves_system_.wav 
vhdl  waves_standard_.wav 
vhdl  waves_standard.wav 
vhdl  waves_logic.vhd 
vhdl  waves_interface_.wav 
vhdl  waves_interface.wav 
vhdl  waves.codes . vhd 
vhdl  waves_device . vhd 
vhdl  waves_objects_.wav 
vhdl  waves_objects.wav 
vhdl  waves_form. vhd 

vhdl  test_bench.vhd  #  use  test_prpt.vhd  for  non-WAVES  test  bench 


mg  waves.system 

mg  vaves.standard. vaves.standard 

mg  -bod  vaves.standard. vaves.standard 

mg  vaves.logic 

mg  -bod  vaves.logic 

mg  vaves.interface 

mg  -bod  vaves.interface 

mg  vaves.codes 

mg  vaves_devi.ce 

mg  waves_objects 

mg  -bod  vaves_objects 

mg  waves_generator 

mg  -bod  vaves_generator 

mg  -top  test"(test)" 

build  -replace  test"(test)" 

sim  test 


This  is  a  command  file  for  analyzing,  model  generating,  building,  and  simulating  the  pseudo¬ 
random  pattern  generator  using  the  Intermetrics,  Inc.  Standard  VHDL  1076  Support  Environment. 
First,  the  low-level  components  comprising  the  pattern  generator  are  analyzed  and  model  generated. 
Next,  the  WAVES  packages  are  analyzed  and  model  generated.  Finally,  the  test  bench  is  analyzed, 
model  generated,  built  and  simulated.  The  general  way  to  execute  the  file  is  : 

%  esh  -v  command.file.name  >&  log.file.name  & 
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V.  Conclusions 


The  VII  1)1,  mo<lcls  were  simulated  witli  and  without  WAVES.  The  results  from  both  were 
found  to  be  equivalent.  Since  the  VVAV'ES  manual  was  incomplete  and  contained  errors,  there  was 
difficulty  learning  and  implmenting  the  standard.  Recommended  corrections  and  additions  have 
been  submitted.  The  integrity  of  the  existing  of  WAVES  software  was  found  to  be  intact.  Sufficient 
WAVES  software  existed  for  completing  this  project. 
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